home *** CD-ROM | disk | FTP | other *** search
- unit CDB;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, DREng;
-
- type
- TFormChangeDatabase = class(TForm)
- Memo1: TMemo;
- Label1: TLabel;
- EOldDB: TEdit;
- Label2: TLabel;
- ENewDB: TEdit;
- DuckReport: TDuckReport;
- BPreview: TButton;
- procedure BPreviewClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- FormChangeDatabase: TFormChangeDatabase;
-
- implementation
-
- {$R *.DFM}
- Procedure TFormChangeDatabase.BPreviewClick(Sender: TObject);
- Begin
- DuckReport.NewDataBase := EOldDB.Text + '=' + ENewDB.Text;
- DuckReport.OpenFile;
- DuckReport.OpenDB;
- DuckReport.Preview;
- End;
-
- End.
-